home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9107a.d64
/
main v1.1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
147 lines
1 POKE53280,1:POKE53281,0
5 NU= 0
6 FA = 1000.82836
10 REM ****************************************
20 REM * MAIN V1.1 (C) BY MARKT UND TECHNIK *
30 REM * 1991 *
40 REM * WRITTEN BY HGRB *
50 REM * 1991 *
60 REM ****************************************
70 LW=8: REM LAUFWERKSNUMMER
80 IFA=0THENA=1:LOAD"MESSZYKLUS",LW,1
85 PRINT"[147]MOECHTEN SIE DEN A/D-WANDLER EICHEN?"
86 PRINT"(J/N)"
87 GETA$:IFA$=""THEN87
88 IFA$="J"THEN1000
89 IFA$<>"N"THEN86
90 Z%(1)=2:Z%(2)=2:Z%(3)=2:Z%(4)=10:Z%(5)=10:Z%(6)=10
100 S%(1)=1:S%(2)=15:S%(3)=29:S%(4)=1:S%(5)=15:S%(6)=29
110 L$=" "
120 PRINT"[147] 64'ER MESSLABOR "
130 DIMMA$(6,4)
140 OPEN1,LW,15,"I"
150 OPEN2,LW,2,"KONFIGMES,S,R"
160 INPUT#2,N :REM ANZAHL INSTALLIERTER MODULE
170 FOR M = 1 TO N :REM MODULDATEN EINLESEN
180 : INPUT#2,G$(M) :REM ZU MESSENDE GROESSE
190 : INPUT#2,E$(M) :REM EINHEIT DES MESSWERTS
200 : INPUT#2,B(M) :REM BILDSCHIRMPOSITION
210 : INPUT#2,A(M) :REM ARCHIVIERUNG?
220 : INPUT#2,N$(M) :REM ARCHIVIERUNGSDATEI
230 NEXT M :REM NAECHSTES MODUL
231 CLOSE2
232 CLOSE1
240 REM *************************************
250 REM * START DER MESSROUTINEN *
260 REM *************************************
270 REM INITIALISIERUNG
280 REM GOTO 60000 : REM HIER KANN FUNKUHRROUTINE EINGEBAUT WERDEN
290 FOR I = 1 TO 6
300 : MA$(I,0) = "MODUL "+STR$(I)+" "
310 : MA$(I,1) = "000000[146]"
320 : MA$(I,2) = "UNIT[146]"
330 : MA$(I,3) = "[158] [146]"
340 : M = I
345 : BS = I
350 : GOSUB 570: REM MASKE AUFBAUEN
360 NEXT I
370 PRINT"";
380 FORA=1TO8
390 : PRINT"[165]"SPC(11)"[167]"SPC(13)"[167]"SPC(12)"[167]";
400 NEXT A
410 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][183][183][208]";
420 FORA=1TO8
430 : PRINT"[165]"SPC(11)"[167]"SPC(13)"[167]"SPC(12)"[167]";
440 NEXT A
450 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
460 FORM=1TON
470 : BS=M
480 : ON M GOSUB 10000,10000,10000,10000,10000,10000
490 MA$(M,0)=""+G$(M)+LEFT$(L$,10-LEN(G$(M)))
500 MA$(M,2)=""+E$(M)+LEFT$(L$,4-LEN(E$(M)))
510 : MA$(M,1)=""+RIGHT$(STR$(AN),7)+LEFT$(L$,6-LEN(STR$(AN)))
520 : BS =B(M)
530 : GOSUB570
540 NEXT M
550 GOTO460
560 END
570 REM ************************************
580 REM *BILDSCHIRMAUSGABE ANZEIGEFELD *
590 REM *UEBERGABEWERT: NUMMER DER *
600 REM *AUSGABEPOSITION IN BS *
610 REM ************************************
620 PRINT"";: REM AUF HOMEPOSITION
630 FOR A = 0 TO Z%(BS) : REM ZEILEN-
640 : PRINT"";
650 NEXT A
660 FOR A = 1 TO S%(BS) : REM UND SPALTEN-
670 : PRINT""; :REM POSITION
680 NEXT A : REM EINSTELLEN
690 PRINT ""MA$(M,0); : REM AUSGABE MESSGROESSE
700 PRINT"[157][157][157][157][157][157][157][157][157][157]";MA$(M,1);MA$(M,2); : REM AUSGABE WERT UND EINHEIT
710 PRINT"[157][157][157][157][157][157][157][157][157][157]";MA$(M,3)
720 RETURN
1000 PRINT"[147]EICHUNG DES ANALOG/DIGITALWANDLERS"
1010 PRINT"SCHLIESSEN SIE DEN EINGANG DES"
1020 PRINT"A/D-WANDLERS MIT EINER DRAHTBRUECKE"
1030 PRINT"KURZ (ENTSPRICHT 0 VOLT).
1040 [153]"DRUECKEN SIE DANN EINE TASTE!"
1050 [161]A$
1060 [139]A$[178]""[167]1050
1070 BS[178]1
1080 [129]A[178]1[164]10
1090 : [141]5000
1100 : N[178]N[170]FZ
1110 [130]A
1120 N[178]N[173]10
1130 [153]"EICHWERT FUER 0VOLT IST ";N
1140 [153]"BITTE TRAGENSIE DIESEN WERT IM"
1150 [153]"PROGRAMM EIN MIT:"
1160 [153]"5 N = <EICHWERT>"
1170 [153]"VERBINDEN SIE NUN DEN EINGANG"
1180 [153]"DES A/D-WANDLERS MIT 5 VOLT."
1190 [153]"DRUECKEN SIE DANN EINE TASTE."
1200 [161]A$
1210 [139]A$[178]""[167]1200
1220 BS[178]1
1230 [141]5000
1240 [129]A[178]1[164]10
1250 : [141]5000
1260 : FA[178]FA[170]FZ
1270 [130]A
1280 FA[178]FA[173]10
1290 [153]"DIE STEIGUNG BETRAEGT ";FA[173]5
1300 [153]"TRAGEN SIE DIESEN WERT IM"
1310 [153]"PROGRAMM EIN MIT:"
1320 [153]"6 FA = <STEIGUNG>"
1330 [153]"DANACH MUSS DAS PROGRAMM UNBEDINGT"
1340 [153]"UNTER DEM NAMEN MAIN V1.2E"
1350 [153]"AUF DISK GESPEICHERT WERDEN!"
1360 [128]
5000 [143] ************************************
5010 [143] * ANALOGMESSROUTINE *
5020 [143] * UEBERGABEWERT: ANALOGMODUL- *
5030 [143] * NUMMER IN VARIABLE BS *
5040 [143] * EICHWERTE FUER NULLPUNKT IN *
5050 [143] * N, FUER STEIGUNG IN FA *
5060 [143] ************************************
5070 [151]56579,[194](56579)[176] 224
5080 [151] 56577,M[172]32 :[143] ANALOGPORT WAEHLEN
5090 [158] 53100 :[143] TIMING NUR IN MASCH.
5100 FZ [178] (255[171][194](56580))[170](255[171][194](56581))[172]256
5110 U [178] (FZ [171] NU) [173] FA :[143] EICHUNG
5120 [142]
10000 [143] ************************************
10010 [143] * DRUCKMODUL *
10020 [143] * UEBERGABE: ANALOGPORTNUMMER IN BS*
10030 [143] ************************************
10035 NT[178]2224.400:NS[178]23.5700
10036 [151]56579,[194](56579)[176]224
10037 [151]56577,M[172]32
10040 [129]TE[178]1[164]1000
10050 [130]
10060 [141] 5000
10100 AN [178][181](((FZ[171]NT)[173]NS)[172]10[170].5)[173]10
10109 [139]AN[177][178]100[167]AN[178]99.99
10110 [142]